home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SOLAR / Autocatalysis / add-soup next >
Encoding:
Text File  |  1998-10-23  |  948 b   |  28 lines  |  [TEXT/ScoM]
  1. add-soup soup-name patterns catalysts
  2.  
  3. This adds new patterns and catalysts to a soup. A nil material can be used if nothing is added.
  4.  
  5. (def-soup 'soup
  6.   '((e f e) (d e f) (a b c) (d e f) (e d f c) (e d f e f c) 
  7.     (d e e e f f g g) (g g g g g) (f e e) (e d c) (a a a a a a) 
  8.     (b b b c c) (c c b b))
  9.   '((e f d) (c d) (c d e) (c d e) (f d e) (g g g g) (g f f) 
  10.     (e e e d) (a b) (c c) (b a a)))
  11.  
  12. (add-soup 'soup
  13.   '((a b c d) (e f d) (e d f) (e f c) (e f e f) (d e f) 
  14.     (e d f c))
  15.   '((d e) (f e) (f d) (c d e) (c d e) (f d e d)))
  16.  
  17. (print-soup 'soup)
  18. -->
  19. (def-soup 'soup
  20.   '((e f e) (d e f) (a b c) (d e f) (e d f c) (e d f e f c) 
  21.     (d e e e f f g g) (g g g g g) (f e e) (e d c) 
  22.     (a a a a a a) (b b b c c) (c c b b) (a b c d) (e f d) 
  23.     (e d f) (e f c) (e f e f) (d e f) (e d f c))
  24.   '((e f d) (c d) (c d e) (c d e) (f d e) (g g g g) (g f f) 
  25.     (e e e d) (a b) (c c) (b a a) (d e) (f e) (f d) (c d e) 
  26.     (c d e) (f d e d)))
  27.  
  28.